home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
winsock
/
ircii2-6.zip
/
SCRIPTS\COLUMNS
< prev
next >
Wrap
Text File
|
1994-12-28
|
594b
|
22 lines
# columnate some output
alias format {
assign IRCII.word $1
if ( @IRCII.word < [$0] )
{ assign function_return $([-$0]1) }
{ assign function_return $1 }
}
on ^public * echo $format(11 <$0>) $2-
on ^send_public * {
if ( C == [$0] )
{ echo $format(11 <$N>) $1- }
{ echo $format(10 <$N):$0> $1- }
}
on ^public_other * echo $format(10 <$0):$1> $2-
on ^msg * echo $format(11 *$0*) $1-
on ^send_msg * echo -> $format(8 *$0*) $1-
on ^notice * echo $format(11 -$(0)-) $1-
on ^send_notice * echo -> $format(8 -$(0)-) $1-
on ^wall * echo $format(11 #$0#) $1-
set continued_line